home *** CD-ROM | disk | FTP | other *** search
/ Micromanía 93 / CDMM_93_2.ISO / Project Nomads / nomads_demo_eng.exe / GUIDEDMISSILE_GOTO.TCL < prev    next >
Encoding:
Text File  |  2001-08-14  |  618 b   |  26 lines
  1. # -----------------------------------------------------------
  2. # Manoever fuer Raketen:
  3. # einfacher Zielanflug
  4. #
  5. #   ⌐ radon labs gmbh
  6. #
  7. #   18-Aug-00   af          created
  8. #   18-Aug-00   Don Lorenzo heiratet heute
  9. # ------------------------------------------------------------
  10.  
  11. # eine Root fuer Anflugmanoever
  12. new nroot guidedmissile/goto
  13. sel guidedmissile/goto
  14.  
  15. # einfaches Anfliegen
  16. new ncommandlist follow
  17. follow.setadjusttype    reach
  18. follow.settestcommand   gmgfollow_test
  19. follow.addcommand  true 0 0 -10000 false 0 0 0 nothing 0.5
  20.  
  21. proc gmgfollow_test {} { return 1.0 }
  22.  
  23. sel ..
  24. sel ..
  25.  
  26.